home *** CD-ROM | disk | FTP | other *** search
/ Nothing but Tetris / Nothing but Tetris.iso / tools / amiga / lha / zipdp1_1.lha / zipdepack1.1 / Zipdepack < prev   
Encoding:
AmigaDOS Script File  |  1994-03-16  |  1.1 KB  |  49 lines
  1. .key ARCHIV/A,DIR/A
  2. .bra {
  3. .ket }
  4.  
  5. ;ZIPDepack to Depack ZIPArchivs to any Directory by R/\[>I[]SITY!
  6. ; $VER: ZipDepack 1.1 (16.3.94)
  7.  
  8. ;Procedure Depack
  9. Skip Check
  10. Lab Depack
  11.     set SourceCD `CD`
  12.     Failat 51
  13.     makedir T:ZipTemp{$$}               
  14.     set TempVar "`List {Archiv}(|.zip) LFormat %s%s`"
  15.     cd "T:ZipTemp{$$}"
  16.     IF EXISTS $TempVAR
  17.         CD $SourceCD    
  18.         SET Command "`List {Archiv}(|.zip) LFormat "Unzip %s%s"`"
  19.         CD "T:ZipTemp{$$}"
  20.         $Command
  21.     Else
  22.         CD $SourceCD
  23.         SET Command "`List {Archiv}(|.zip) LFormat "Unzip $SourceCD%s%s"`"
  24.         CD "T:ZipTemp{$$}"
  25.         $Command
  26.     Endif
  27.     Copy #? to {Dir} CLONE QUIET                   
  28.     CD $SourceCD           
  29.     Protect T:ZipTemp{$$} all rwed quiet
  30.     Delete T:ZipTemp{$$} all quiet        
  31.     Unset SourceCD
  32.     Failat 10                           
  33.     Echo Done
  34.     Quit
  35.  
  36. Lab Check
  37. echo "ZipArchiv={Archiv} | UnPackDir={Dir} | Task = {$$}"
  38. IF Exists {Archiv}
  39.     skip Depack back 
  40. Else
  41.     IF Exists {Archiv}.Zip    
  42.         Skip Depack back
  43.     Else
  44.         Echo "ZipArchiv={Archiv} does not Exists"
  45.     EndIF
  46. Endif
  47. ;Call SECOM CITY to Reach me...++49308034262,3.6 Gigs,3 Nodez Rnd
  48. ;Write a Person Called `R/\[>I[]SITY!` a Message.
  49.